'!TITLE "<Title>"           
PROGRAM PRO1                   
COM_ENCOM #1    
TAKEARM                         
DEFINT Z,opentime                 
DEFINT laserbutton,laser,ontime,ctime               
DEFSTR Q


MOVE P,J0                 
FLUSH #1                   
PRINT #1,"S"            

'----------------------------------------------------------------------

*L2:

FLUSH #1                             
INPUT #1,J[10],Z,laserbutton      
'IF (laserbutton=1) THEN *L5

'IF laserbutton=1 THEN *OnLaser

J1=J10                                
EXTSPEED Z




MOVE P,@P J1



DO
PRINT #1,"S"
FLUSH #1
INPUT #1,Q,WTIME=10
IF Q="q" THEN EXIT DO
LOOP

LET Q=" "



GOTO *L2              

     
